
DEF INPUT  PARAMETER num-coul     AS CHARACTER       NO-UNDO.
DEF INPUT  PARAMETER id-tech      AS CHARACTER       NO-UNDO.
DEF OUTPUT PARAMETER par-coul     AS CHARACTER       NO-UNDO.

FIND parmt WHERE parmt.nompar = "VIDEOWEB" + num-coul
             AND parmt.nomuti = id-tech
             AND parmt.nosoc  = 0 NO-LOCK NO-ERROR.
IF NOT AVAILABLE parmt THEN
   FIND parmt WHERE parmt.nompar = "VIDEOWEB" + num-coul
                AND parmt.nomuti = "" NO-LOCK NO-ERROR.
par-coul = IF AVAILABLE parmt THEN ENTRY(1,valpar) ELSE "".

